Manipulate[Show[ParametricPlot3D[{t,3Cos[t],3Sin[t]},{t,-5,5},PlotRange->All,AxesOrigin->{0,0,0}],
(*Normal Plane*)ContourPlot3D[{x-3y==(Pi/2)},{x,(Pi/2)-1,(Pi/2)+1},{y,-1,1},{z,2,4},ContourStyle->{Purple,Opacity[a]},Mesh->None,BoundaryStyle->None],

(*Osculating Plane*)ContourPlot3D[{3x+y==(3*Pi/2)},{x,(Pi/2)-1,(Pi/2)+1},{y,-1,1},{z,2,4},ContourStyle->{Orange,Opacity[b]},Mesh->None,BoundaryStyle->None],

(*Unit Tangent Vector*)Graphics3D[{Opacity[c],Cyan,Arrowheads[.015],Arrow[{{Pi/2,0,3},{Pi/2+(1/(Sqrt[10])),-3/(Sqrt[10]),3}}]}],

(*Unit Normal Vector*)Graphics3D[{Opacity[d],Red,Arrowheads[.015],Arrow[{{Pi/2,0,3},{Pi/2,0,2}}]}],

(*Binormal Vector*)Graphics3D[{Opacity[f],Green,Arrowheads[.015],Arrow[{{Pi/2,0,3},{Pi/2+(3/(Sqrt[10])),1/(Sqrt[10]),3}}]}]

],{{c,0,"Unit Tangent Vector"},{1,0}},{{d,0,"Unit Normal Vector"},{1,0}},{{f,0,"Binormal Vector"},{1,0}},{{a,0,"Normal Plane"},{1,0}},{{b,0,"Osculating Plane"},{1,0}},
ControlPlacement->Left]